home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 2905.ZIP / QWEZ.ZIP / MAKERAND.BAS < prev    next >
BASIC Source File  |  1993-06-01  |  1KB  |  37 lines
  1. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2. '!!!        ** [ READ THIS ] ** !!!!!!!! ** [ READ THIS ] **             !!!
  3. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4. '                              INSTRUCTIONS
  5. '
  6. '   1. LOAD AND RUN MAKERAND.BAS ( THIS FILE ) TO MAKE THE RANDOM DATA FILE,
  7. '      RANDDATA.DAT.
  8. '
  9. '***************************************************************************
  10.  
  11. TYPE REC
  12.    MARK AS STRING * 1
  13.    NAM AS STRING * 25
  14.    ADD1 AS STRING * 30
  15.    CITY AS STRING * 25
  16.    STATE AS STRING * 10
  17.    ZIP AS STRING * 9
  18. END TYPE
  19. DIM RECORD AS REC
  20. RECLEN% = LEN(RECORD)
  21.  
  22. OPEN "RANDDATA.DAT" FOR RANDOM AS 1 LEN = RECLEN%
  23. CLS
  24. LOCATE 1, 1: PRINT "Making random file."
  25. FOR X% = 1 TO 250
  26.    RECORD.MARK = CHR$(32)
  27.    RECORD.NAM = "THIS IS NAME # ---" + STR$(X%)
  28.    RECORD.ADD1 = "THIS IS ADDRESS # ------" + STR$(X%)
  29.    RECORD.CITY = "THIS IS CITY # ----" + STR$(X%)
  30.    RECORD.STATE = "ST #" + STR$(X%)
  31.    RECORD.ZIP = "ZIP #" + STR$(X%)
  32.    PUT 1, , RECORD
  33. NEXT
  34. LOCATE 1, 1: PRINT "RANDOM ACCESS FILE HAS BEEN MADE."
  35. CLOSE
  36.  
  37.